home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 February / PCWorld_2002-02_cd.bin / Software / Vyzkuste / alpha / Script Example.aas < prev   
Text File  |  2000-07-28  |  2KB  |  72 lines
  1. Script Example for AlphaScript v2
  2. Made by Folletto Malefico "@ - arcanewood@yahoo.com
  3. ---------------------------------------------------
  4.  
  5. Since now (v2.xx) you can't add normal text lines within the code.
  6. The code starts after the !##AAS command, at the beginning of a line,
  7. and after that you can add only AAS commands.
  8.  
  9. The comments are allowed, only at the and of a line and signed with '''.
  10.  
  11. The text !##showtokens must be on the line just after !##AAS.
  12.  
  13. Strings between '' means that are taken as they are. instead
  14. between "" means that all the vars inside will be evaluated.
  15.  
  16. The !quit command just before the initialization command is placed
  17. to stop possible executions by ASv1.
  18.  
  19. !msg('This is an AlphaScript v2 file. You can't execute with v1','Wrong Version','i')
  20. !quit
  21. !##AAS
  22. '''!##showtokens ''' Shows the tokens into the Debug Window
  23.  
  24. ''' Logging Data
  25. !tim.start
  26. !log("AlphaScript v@as.ver.major: @sys.user <@sys.date - @sys.time>","@as.path\Log.txt")
  27.  
  28. ''' Menu Memorization
  29. !listadd("About")
  30. !listadd("E-Mail to the Author")
  31. !listadd("-")
  32. !listadd("Try: !Input")
  33. !listadd("Try: !FileRead")
  34. !listadd("Try: !RegRead")
  35. !listadd("-")
  36. !listadd("Quit")
  37.  
  38. !#MENU
  39. !list("AS Example",10,10)
  40.  
  41. !if(@out.list=="-") !then(!goto(MENU))
  42. !if(@out.list=="") !then(!goto(END))
  43. !if(@out.list=="Quit") !then(!goto(END))
  44. !if(@out.list=="About") !then(!about)
  45. !if(@out.list=="E-Mail to the Author") !then(!exe("mailto:arcanewood@yahoo.com?subject=AlphaScript v2 (ExFl)"))
  46. !if(@out.list=="Try: !RegRead")
  47. !then(
  48.         !regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","ProductName")
  49.         !let(ro1="@out.regread")
  50.         !regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","VersionNumber")
  51.         !msg("Output: @ro1 @out.regread","RegRead Output","i")
  52. )
  53. !if(@out.list=="Try: !FileRead")
  54. !then(
  55.         !fileread("@as.path@as.name",1)
  56.         !msg("This is the first line of the script:!n""@out.fileread""","FileRead Output","i")
  57. )
  58. !if(@out.list=="Try: !Input")
  59. !then(
  60.         !input("Please type something.","Input Test")
  61.         !if("@out.input"=="")
  62.         !then(!msg("You haven't typed anything!!!","Input Output","i"))
  63.         !else(!msg("This is what you've typed:!n""@out.input""","Input Output","i"))
  64. )
  65. !goto(MENU)
  66.  
  67.  
  68. ''' Closing Sequence
  69. !#END
  70. !log("         [Closed after: @tim.delay secs]","@as.path\Log.txt")
  71. !quit
  72.